<%'  ------------------------------------------------------------
  '  islogon.asp 
  '  ------------------------------------------------------------
  '  VCS INFO:
  '  
  '  $Revision:   1.10  $
  '  $Date:   19 May 1998 12:21:42  $
  '  $Author:   shsieh  $
  '  $Workfile:   islogon.asp  $
  '  ------------------------------------------------------------
  '  All Rights Reserved.  Copyright (c) 1988-1998 FileNET Corp.
  '  ------------------------------------------------------------
  '%>

<%
'Panagon IDM Web application uses the Session variable LibraryLogonID to keep track of
'whether the user has logged on.
'Please see logoncall.asp to see how the Session variable LibraryLogonID is set.

'Islogon.asp is used as utility page and is included by several other pages.
'If the RedirectToLogon is set and the user is not logged on, then this utility will
'redirect the client browser to the logon page.
'Otherwise, it returns an error reponse to the client browser.
'Please see other pages, e.g. browser.asp, to see how the RedirectToLogon is set and
'the file islogon.asp is included.

IsloggedOn = (Len(Session("LibraryLogonID")) > 0)
if Not IsLoggedOn then
	if RedirectToLogon then
		Session("TargetPage") = Request.ServerVariables("PATH_INFO")
		Session("QueryString") = Request.ServerVariables("QUERY_STRING")
		Response.Redirect "logon.asp"
	else
		Response.Expires = 0
		Response.Status = "403 Forbidden"
		Response.ContentType = "text/plain"
		Response.Write "Not logged on or session timed out ... please logon."
		Response.End
	end if
end if
%>
